`intervals` <-
function(o, level = .95, ...)
UseMethod("intervals")

